home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 January / 64er_Magazin_90-01_1990_Markt__Technik_de_Side_A.d64 / qll loadgr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  108 lines
  1. 1 rem          grafikladeprogramm zur
  2. 2 rem          zollrasterhardcopy
  3. 3 rem
  4. 4 rem          von norbert ramek
  5. 5 rem          ignaz riederkai 17
  6. 6 rem          a-5020 salzburg
  7. 7 rem
  8. 100 sys8*4096
  9. 110 *= 26400
  10. 120 .opt oo
  11. 210 chkcom = $aefd
  12. 220 getpar = $e1d4
  13. 230 chkget = $b7f1
  14. 240 load = $ffd5
  15. 280 vic = $d000
  16. 290 cia2 = $dd00
  17. 400 ;
  18. 401 ;sprungadressen
  19. 402 ;**************
  20. 403 ;
  21. 410 jmp clear;=26400
  22. 420 jmp gload;=26403
  23. 430 jmp trans;=26406
  24. 500 ;
  25. 501 ;grafik loeschen
  26. 502 ;***************
  27. 503 ;
  28. 510 clear jsr chkget;punktfarbe
  29. 520 txa
  30. 530 asl
  31. 540 asl
  32. 550 asl
  33. 560 asl
  34. 570 sta $fd;merken
  35. 580 jsr chkget;hintergrundfarbe
  36. 590 txa
  37. 600 and #%00001111
  38. 610 ora $fd
  39. 620 ldy #0;ab $6000 farbcode setzen
  40. 630 sty $fd
  41. 640 ldx #$60
  42. 650 stx $fe
  43. 660 ldx #4;anzahl pages (bis $63ff)
  44. 670 cl1 sta ($fd),y
  45. 680 iny
  46. 690 bne cl1
  47. 700 inc $fe;hi erhoehen
  48. 710 dex
  49. 720 bne cl1
  50. 730 ldy #0;ab $4000 loeschen
  51. 740 sty $fd
  52. 750 lda #$40
  53. 760 sta $fe
  54. 770 ldx #32;anzahl pages (bis $5fff)
  55. 780 tya;y=0
  56. 790 cl2 sta ($fd),y;loeschen
  57. 800 iny
  58. 810 bne cl2
  59. 820 inc $fe;hi erhoehen
  60. 830 dex
  61. 840 bne cl2
  62. 850 rts
  63. 1000 ;
  64. 1001 ;grafik laden
  65. 1002 ;************
  66. 1003 ;
  67. 1010 gload lda #%00111011;grafik ein
  68. 1020 sta vic+17
  69. 1030 lda #%10000000;videoram nach $6000
  70. 1040 sta vic+24;bitmap nach $4000
  71. 1050 lda #%00000010
  72. 1060 sta cia2
  73. 1070 jsr chkcom
  74. 1080 jsr getpar
  75. 1090 ldy #$40;ladeadresse hi
  76. 1100 ldx #0;lo
  77. 1110 txa;load-flag = 0
  78. 1120 jsr load
  79. 1130 lda #%00011011;grafik aus
  80. 1140 sta vic+17
  81. 1150 lda #%00010101
  82. 1160 sta vic+24
  83. 1170 lda #%00000011
  84. 1180 sta cia2
  85. 1190 rts
  86. 1500 ;
  87. 1501 ;grafik veschieben
  88. 1502 ;*****************
  89. 1503 ;
  90. 1510 trans ldy #0;orig. adresse $4000
  91. 1520 sty $fd
  92. 1530 sty $fb
  93. 1540 lda #$40
  94. 1550 sta $fe
  95. 1560 lda #$20;zieladresse $2000
  96. 1570 sta $fc
  97. 1580 ldx #32;anzahl pages
  98. 1590 tya;y=0
  99. 1600 tr1 lda ($fd),y
  100. 1610 sta ($fb),y
  101. 1620 iny
  102. 1630 bne tr1
  103. 1640 inc $fe;hi erhoehen
  104. 1650 inc $fc
  105. 1660 dex
  106. 1670 bne tr1
  107. 1680 rts
  108.